|
|
 |
|
|
|
|
159: '.txtReportName = App.Path & \KEN0001 PCP.txt
160: '.txtReportName = LocationPhysiciansRpt
161: .Show
162: End With
163: End Sub
164:
165: '##ModelId=35215210037A
166: Public Sub hideForm()
167: Unload theForm
168: Set theForm = Nothing
169: End Sub
170:
171: Public Sub setNewFontColor()
172: theRichTextFormatting.setNewFontColor
173: End Sub
174:
175: Public Sub setNewFontName()
176: theRichTextFormatting.setNewFontName
177: End Sub
178:
179: Public Sub setNewFontSize()
180: theRichTextFormatting.setNewFontSize
181: End Sub
182:
183: Public Sub processToolbar(argButton) ' As ComctlLib.Button)
184: 'On Error Resume Next
185: Select Case argButton.Key
186: Case Open
187: 'ToDo: Add Open button code.
188: clickedOpenReport theForm.txtReportName.Text
189: Case Print
190: 'ToDo: Add Print button code.
191: clickedPrintReport
192: Case Save
193: 'ToDo: Add Save button code.
194: clickedSaveReport
195: Case Bold
196: 'ToDo: Add Bold button code.
197: Case Italic
198: 'ToDo: Add Italic button code.
199: Case Underline
200: 'ToDo: Add Underline button code.
201: Case Undo
202: 'ToDo: Add Undo button code.
203: Case Redo
204: 'ToDo: Add Redo button code.
205: End Select
206: End Sub
207: Public Sub updateProgress(argProgressUnit As Long, _
|
|
|
|
|
|